home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
edit174.zip
/
R-PCEDIT.MRG
< prev
next >
Wrap
Text File
|
1992-07-05
|
5KB
|
90 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBS-PC.BAS to produce R-PCEDIT.BAS
* RBBS-PC.BAS: Date 4-4-1992 Size 173476 bytes
* ------------[ Created 04-04-1992 19:24:55 ]------------
* REPLACING old line(s) by new
* ------[ first line different ]------
2100 AnsiedUsed = ZFalse ' ED070501
GOSUB 2101 ' ED070501
IF NOT ZYes THEN _ ' ED070501
GOTO 2120 ' ED070501
GOTO 2110 ' ED070501
* INSERTING new line(s)
2101 ZYes = ZFalse ' ED070501
IF (ZUserGraphicDefault$ = "C" OR NOT ZHiLiteOff) AND NOT ZGetExtDesc THEN ' ED070501
ZOutTxt$ = "Use the ANSI Screen Editor (Y,[N])" ' ED070501
GOSUB 12930 ' ED070501
END IF ' ED070501
RETURN ' ED070501
'* ' ED070501
'* EDIT SysOp's: Want ANSIED to default to yes? Comment out the ' ED070501
'* six lines above (starting with 2101), and remove the comment ' ED070501
'* from the following SEVEN lines: ' ED070501
'* ' ED070501
' 2101 ZYes = ZFalse ' ED070501
' IF (ZUserGraphicDefault$ = "C" OR NOT ZHiLiteOff) AND NOT ZGetExtDesc THEN ' ED070501
' ZOutTxt$ = "Use the ANSI Screen Editor ([Y],N)" ' ED070501
' GOSUB 12930 ' ED070501
' IF NOT ZNo THEN ZYes = ZTrue ' ED070501
' END IF ' ED070501
' RETURN ' ED070501
2110 AnsiedUsed = ZTrue ' ED070501
CALL Ansied (MsgTo$, OrigSubject$, MsgLockLines) ' ED070501
I = ZSubParm ' ED070501
CALL SkipLine (1) ' ED070501
IF I = -2 THEN ' Sleep Disconnect ' ED070501
GOTO 10590 ' ED070501
ELSEIF I = -1 THEN ' Lost Carrier ' ED070501
GOTO 10595 ' ED070501
ELSEIF I = 1 THEN ' Save Message ' ED070501
GOTO 3400 ' ED070501
ELSEIF I = 2 THEN ' Abort Message ' ED070501
GOTO 2430 ' ED070501
END IF ' ED070501
2120 ZOutTxt$ = "Enter Your " + _
ZMsgHeader$ + _
STR$(ZMaxMsgLines) + _
" Lines Max. Press [ENTER] By Itself for Menu." ' UG070501
GOSUB 12979 ' UG070501
GOSUB 3200
* REPLACING old line(s) by new
3405 IF ZSysopMsg THEN _
MsgPswd$ = "^READ^" _
ELSE Temp$ = MsgPswd$ : _
CALL MsgProt (MsgTo$,Found,MsgPswd$) : _
IF MsgPswd$ = "" THEN _
MsgPswd$ = Temp$ : _
* ------[ first line different ]------
IF AnsiedUsed THEN GOTO 2110 ELSE GOTO 2300 ' ED070501
SaveReplyStatus = ZReply
ZReply = ZTrue
ZSysopMsg = ZFalse
ZReply = SaveReplyStatus
GOSUB 4910
MsgRecSave$ = ZMsgRec$
MsgCorrected = ZFalse
GOSUB 23100
ZWasSL = 0
ZWasN$ = ""
ZLastIndex = 0
HighMsgNumber = HighMsgNumber + 1
* REPLACING old line(s) by new
4626 ZWasZ$ = "L"
WasL = 1
* ------[ first line different ]------
GOSUB 2101 ' ED070501
IF ZYes THEN ' ED070501
GOSUB 2110 ' ED070501
ELSE ' ED070501
IF ZLinesInMsg >= ZMaxMsgLines THEN _
CALL QuickTPut ("Warning: Message Must Be Shorter Than" + _
STR$(ZMaxMsgLines) + " Lines.",1) ' UG070501
IF NOT MsgFwd THEN _
ZOutTxt$ = "Use C to Continue Reply. Please Delete Unneeded Quoted Lines." : _ ' UG070501
GOSUB 12975 ' UG070501
GOSUB 3200
GOSUB 3020
GOSUB 2300
END IF
GOTO 4628